home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 5 / inter@ivo 1996-06.iso / cybint5 / bin / cocktail.dxr / 00048.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  290 b   |  17 lines
  1. on exitFrame
  2.   global stat
  3.   if (stat = 0) and (soundBusy(2) = 0) then
  4.     sound playFile 2, "..\som\voz.wav"
  5.     set stat to 1
  6.   end if
  7.   if (stat = 1) and (soundBusy(2) = 0) then
  8.     onVis(8)
  9.     updateStage()
  10.     wait(2)
  11.     set stat to 2
  12.     go("b")
  13.   else
  14.     Loopframe()
  15.   end if
  16. end
  17.